１行おきに背景色を変更する

２色の背景色を交互に表示するレポートを作成するには、詳細セクションの OnPrint イベントを使用して、セクションのBackColor プロパティを変更します。次に例を示します。

VBScript	コードのコピー
' VBScript: Report.OnOpen イベント ' カウンタを初期化します cnt = 0 ' VBScript: Detail.OnPrint イベント ' 背景色を切り替えます cnt = cnt + 1 if cnt mod 2 = 0 then detail.backcolor = rgb(200,220,200) else detail.backcolor = rgb(255,255,255) endif

VBScript

コードのコピー

' VBScript: Report.OnOpen イベント
' カウンタを初期化します
cnt = 0
' VBScript: Detail.OnPrint イベント
' 背景色を切り替えます
cnt = cnt + 1
if cnt mod 2 = 0 then
detail.backcolor = rgb(200,220,200)
else
detail.backcolor = rgb(255,255,255)
endif

詳細セクションがレンダリングされるたびに、カウンタが加算され、詳細セクションの BackColor プロパティが切り替えられます。

CommonTasks.xml にあるレポート「01: 1行おきに変化する背景色」を参照してください。